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BEGIN 


' 
SRR REE ERE EEE AE AE EAAAAEAAAAKAAAAAAEATAEAAAAARAAATAAAAAHARARARHTHEA KARA Aee 
'@ 


i® COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


't THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt 
ONLY | DANCE W THE fT F THE 


uw 


!t TRANSFERRED. 


!t THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oe okatite. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IL 
IS NOT SUPPLIED BY DIGITAL. 


® 

® 

® 

® 

® 

® 

® 

® 

® 

, ® 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
® 

® 

® 

® 

® 

® 

I « 
H * 
* 

® 

® 


Yee RR AAA AAA AARAERAA AEA AAAE EAA EAAREKEEEE 


+ 
aa 


FACILITY: System Library 
ABSTRACT: 


TPARSE is a general purpose state table driven parser. Its 
general design is that of a finite state parser; however, 
some of its features atta non-determiniscic parsing and 
Limited use as @ pus h-down parser. The input string is parsed 
by interpreting ¢ f fe transitions in the user suppled state 
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' 
i 
! 
1 
i 
' 
i 
7 13 
8 ‘ 
g 1) 
041 i table; user supp! ied action routines are called as indicated 
0 § ! in the state table to provide the semantics associated with 
bee the table specified syntax. 
Goes i ENVIRONMENT : 
ivhd i Native node star processor; no operating system facilities are 
Bee needed. Minimum of 21 longwords of stack required. 
50 1 i-- 
ae 
? 038 AUTHOR: Andrew C. Goldstein, CREATION DATE: 14-Oct-1976 13:55 
5 095 MODIFIED BY: 
$ 0089 i v03-004 ACG0396 Andrew C. Goldstein, 31-Jan-1984 22:10 


11 | 
LIBSTPARSE 1b-Se -1984 02:20: AX-11 Bliss-32 V4.0-742 Page 2 
bbe s000 122808- 1382 96:99:48 VMSLIB.SRCJTPARSE.B32;1 ° (1) 
3 28 8 1! Add multi-national characters to alphabetics; add a | a. | 
3 26 82 ! character data type for hex digits ‘ ; 
; «61 9061 1! v03-003 ACG0392 Andrew C. Goldstein, | 19-Jan-1984 21:32 a 
; 66 O06 1! Add match-all identifier to ident parsing; also add : | 
; 63 9063 i TPAS_FILESPEC item. : i 
; 65 Goes v03-002 ACG0351 Andrew C. Goldstein, Te Pe 15:42 >; | 
; © bo8 1! Add wild cards to UIC and IDENT parsing; disallow explicit ; 
; 6? 9067 i -1 values for group and member : { 
; 69 069 1! V03-001 ACG0345 Andrew £. Goldstein, 29-Jul-1983 15:20 i 
: 20 070 i Add UIC and identifier token types : { 
Fle. Bore 1! v02-009 ACG0263 Andrew C. Goldstein, 88-Feb-1982 23:35 Pe! 
; 6 Beer : } Fix token pointer after subexpression parse failure . 
: «75 0075 1! v02-008 ACG0203 Andrew C. Goldstein, 28-Apr-1981 15:44 | 
; £8 it : Propagate return status past subexpression calls : 
a 0078 1! v02-007 ACGO155 Andrew C. Goldstein, 12-Mar-1980 10:04 ci 
3 He 4 st 4 : } Allow subexpressions to change the command string : i 
; 8} 0081 1! 1-006 ACG26405 Andrew C. Goldstein, 6-Dec-1979 20:14 3 1 
: 8 B08 ! Change string count in control block to word : { 
; «84 0084 1! 1-005 AcG0088 Andrew C. Goldstein, | 4=Dec-1979 17:22 | 
; +H 4 $4 : Propagate action routine status through subexpression returns ; f 
Sr 0087 1! v0004 ACG0019 Andrew C. Goldstein, 26-Mar-1978 16:27 7 
; 8 0088 1! Add return of action routine status; fix trailing blanks problem i 
; OF 44.94 : Change PSECTS to new procedure Library standards ..! 
—— wy 0091 1 !e« 
; Pe 0092 1 
5s 0093 1 
: 94 0094 1 LIBRARY ‘SYS$LIBRARY:STARLET.L32'; 
: 0095 1 LIBRARY ‘SYSS$LIBRARY:TPAMAC.L32'; 
; © B08 1 
s 97 0097 1 
; «98 0098 1 
; WP 0099 1 PSECT 
; 100 0100 1 CODE = _LIBSCODE (SHARE, PIC), 
: 6101 19) 1 PLIT = -LIBSCODE (SHARE, PIC); | 
: 108 1 ; 1 
s 10 103 1 LINKAGE . 
: 104 0104 1 L_GETSTRING = CALL (STANDARD, STANDARD 
> 105 0105 1 : GLOBAL (CHAR_COUNT = 6); 
: 106 8106 1 
: 107 107 1 FORWARD ROUTINE 
: 108 0108 1 LIBSTPARSE, ! main parser routine 
3; 109 0109 1 GETSTRIN : L_GETSTRING, ! extract a basic string token 
: 110 0110 1 PARSE _FILESPEC, ! parse filespec otring 
: Say 111. 1 PARSE_IDENT; ! parse identifier string 
: 18 BT 1 
s 1 11 1 | 
3; 6116 114 1 EXTERNAL ROUTINE 
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L'BSCVT_DTB : ADDRESSING_MODE (GENERAL), ! decimal to binary conversion 
LIBSCVT_OTB : sooeeetineo none (GENERAL), ' octal to binary conversion 
LIBSCVT_HTB : ADDRESSING_MODE (GENERAL); ! hex to binary conversion 
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D011 
16-Sep-1984 02:20: AX-11 Bliss-32 V4.0-74 
e280 382 96:99:48 VMSLIB.S CITPARSE B32; 
1! 
: } Local macros and symbol definitions 
1 . 
: LITERAL 
: } Character codes 
.. SPACE = 10°40) ' space character 
1 TERMINATOR = 40'377', ! keyword string terminator 
: TAB = Z0'11', ' tab character 
: String types (input to GETSTRING routine) 
& SPACES = 0, 
1 NUMERIC = 1, 
1 HE XNUMERIC = ¢° 
1 ALPHANUMERIC = 3, 
: SYMBOL = 4, 
: Token types 
Rs SFILESPEC = ZX'FF* AND TPAS_FILESPEC, ! filespec expression 
1 Ic = ZX'FF* AND TPAS_UIC, ! UIC expression 
1 SIDENT = ZX'FF* AND TPAS_IDENT, ! identifier expression 
1 Y = XX'FF* AND TPAS_ANY, ! any single character 
1 SALPHA = ZX°FF* AND TPAS_ALPHA, ! any alphabetic character 
1 IGIT = ZX'FF* AND TPAS_DIGIT ! any numeric character 
1 SSTRING = XX'FF* AND TPAS-STRING, i any alphanumeric string 
1 SSYMBOL = ZX'FF* AND TPAS_SYMBOL, ! any symbol constituent set string 
1 SBLANK = ZX'FF* AND TPAS_BLANK, ! any string of spaces and tabs 
1 SDECIMAL = ZX'FF* AND TPAS_DECIMAL, ! decimal number 
1 SOCTAL = ZX"FF* AND TPAS_OCTAL, ! octal number 
1 SHEX = ZX'FF* AND TPAS_HEX ! hexadecimal number 
1 SLAMBDA = XX'FF" AND TPAS_LAMBDA, i empty string 
1 EOS = ZX'FF* AND TPA$_EOS ! end of string 
1 $SUBEXPR = XX'FF' AND TPAS~SUBEXPR, i subexpression 
1 NULL_MATCH = TPAS_LAMBDA, ! codes geq match null strings 
1 HIGH_ASCII = $22- ' highest ASCII character code 
1 KEYWORD = 36. ' start of keyword codes 
1 HIGH KEYWORD = 475, ! highest keyword code 
1 LOW SPECIAL = $SFILESPEC, ' first special type code 
! HIGA_SPECIAL = $SUBEXPR; ' Last special type code 
: Macros to determine character types 
5 . 
1 MACRO 
: IS_ALPHABETIC (CHAR) = rep ecroms CHAR OF 
1 Peasctl ‘A’ TO ZASCII ‘2°, 
1 eAscht ‘a’ TO ZASCII ‘2', 
1 Zx'CO' TO ZX'CF’, 
1 ZX'D1' TO ZxX'DD', 
1 ZX'OF® TO ZX‘EF' 
1 XX'F1" TO XX'FD'S: 1; 
1 COTHERWISE): 0; 
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voe-000 18=35p-1986 99:99:08 — EomsLlecsneiteanse.o32:4 rer 


; 3 1 
; 1 ! Structure definition for the Heo hin jenge) table. It consists ef $4 
: 5 1 ! entries, indexed by the 6 transition option bits. Each entry is a 4 b 
5 5 1 ! nibble giving the number of words that are used by that transition 
: : ; option mask. 
; 1 
; 24 1 STRUCTURE 
s 2 40 1 seonmmcian }* CI; N) = 
: tg 41 1 (N41)/ 
: $? tg ! NIBBLEVECTOR<I1*4, 4, 0>; 
3 ! Macro to generate n es in a PLIT expression. 
4g rf : M ibbles i PLIT i 
: 24 46 1 
; 248 23 1 MACRO 
; 249 m 02468 1 NIBBLE CA, B) = 
$ 29 m 0249 1 BYTE (B% + A) 
; 1 50 1 %; 
5 26 51 1 
3 2 26 1 ! The transition Length table. 
i $88 rae 
; 36 55 1 BIND 
2 P 2$ 1 LENGTH_TABLE = UPLIT (NIBBLE (0,1,1,2,2.3,3.4.2.3430404.555.6, 
Py 58 P 5 1 Co Seer Cereus t 
4 59 e 28 1 . e POU Lo Pere eee 
° 60 P 025 1 & 5,5,6,6,7,7,8.6,7,7, . :9.9.10 
; 261 9260 1 5 
3: 262 0261 1 


| 
: NIBBLEVECTOR; 
| 
| 
| 
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LIBSTPARSE 1b-se =1984 02:20:1 AX-11 Bliss-32 V4.0-74 
v04-000 12-88-1382 9g: 90:48 VMSLIB. RCITPARSE.B32; 
: 3 6 } GLOBAL ROUTINE LIBSTPARSE (STATE_VECTOR, START_STATE, KEYTAB) = 
: $e8 es yi 
; 3 $6 : FUNCTIONAL DESCRIPTION: 
: n 63 | This routine is the main parser routine. 
; ig 8 1 ' CALLING SEQUENCE: 
; re 74 ; : LIBSTPARSE (ARG1, ARG2, ARG3) 
: 2? 7% 15 
: 8 75 1! INPUT PARAMETERS: 
; 278 0 zg 1} ARG] = address of state vector, containing: 
; 279 7 oo options longword 
; 280 78 «1! bit 0 set to match blanks and tabs 
; 281 7 1} clear to ignore blanks and tabs 
3 ag 0280 1! bit 1 set to allow minimum abbreviation of keywords 
; 0281 1! clear to use match count 
> 284 0 S 1! high byte = keyword match count (0 = exact) 
; 285 0285 1! string descriptor of string to be parsed 
3 My] 8 1! data made available to action routines: 
: 28 85 1! string descriptor of matching token 
: 288 8 1! single character token 
: 289 87 1! numerical value of numeric token 
; 290 0288 1! ARG2 = address of starting state in state table 
3 33 8 34 : ARGS = address of keyword table 
; 3 0291 1 | IMPLICIT INPUTS: 
mos ia = 
; 236 0294 1 | OUTPUT PARAMETERS: 
; 297 0295 1! string descriptor pointed to by ARG1 updated to indicate 
; 299 $353 : : string not processed by the parser 
: 300 0298 1 | IMPLICIT OUTPUTS: 
3 4 3 7 : NONE 
; 08 301 1 ' ROUTINE VALUE: 
3 304 $08 1! if successful parse 
; 305 o> 7: LIBS_SYNTAXERR if unsuccessful parse 
; 306 304 1! LIBS_INVTYPE if state table is invalid 
: 4 30¢ : value of action routine rejecting transition 
: 309 09 1 | SIDE EFFECTS: 
3 19 $05 ! : none except as produced by user's action routines 
; Ig 10 1 ie 
a | 
F 15 18 BEGIN 
: 13 15 2 LOCAL 
: 18 1 E ' state table pointer 
; 319 1 LAST SPACE, ! character count of last string of spaces 
; 320 18 ACT_STATUS : BLOCK (4, BYTE], ! status return of action routine 
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: 38 TYPE : BLOCK (4, BYTE]; ! syntax type of current transition 

: 1 

: ¢ MAP 

; STATE_VECTOR : REF BLOCK [C ertg2. ! user state vector 

4 KEYTAS : REF VECTORC,WORD,SIGNEDJ; ‘ keyword table 

; § ¢ BUILTIN 2 

: : TESTBITSC; 

; 9 | TPARSE data area available to action routines. 

; ; MACRO 

; 0 STATE_LENGTH = STATE_VECTORCTPASL_COUNTI2% ! Length of user supplied state vector 
| gis SANG f0iNten = SUA o@ETORERRRAC yg etuMetATD <P Lata ag BFPeRe te lag oarBeat Me Pes 
; = * I ..! address of string being parse 
; 0 $ tou = STATE_VECTOR a sgh nd te RT & ' byte count of curtunt cohen 

; 0 TOKEN_POINTER = STATE_VECTORLTPASL_TOKENPTRJZ, ! address of current token 

; 0338 STATE_CHA = STATE_VECTORLTPASL_CHARI2 ! current single character token 
; 0339 STATE-NUMBER = = STATE-VECTORCTPASL_-NUMBERIZ, | numerical value of number token 
3 8 ret TET = pareve troe a ket actigs feeeree Gerenetes from state table 
3 = a pm » |! match abbreviation coun 

; 0 4g SPACE_FLAG = STATE_VECTORLTPASV_BLANKS)]Z, ! process spaces expt er tty 

; 034 ABBRFA_FLAG = STATE_VECTORLTPASV_ABBRFMJZ, | allow first match abbreviations 
: bate ABBREV_FLAG = STATE_VECTORCTPASV_ABBREVIJZ, ! allow minimal abbreviations 

; i 0346 AMBIG_FLAG = STATE_VECTORLTPASV_AMBIGJ2; ! ambiguous keyword in this state 
: 349 034 

; 350 0348 ' 

s 331 0349 ! Contents of the type byte - code and flags. 

3 26 0350 : 

3; 3 0351 MACRO 

3; 6354 O26 TYPECODE = 8.0.3 -08. ! full token type code 

; 355 035 TYPEBYTE = 0,0,8,0% ' token type byte 

: 356 0354 OPTION_BITS = 0.11,6,0, ! transition option flags 

: 357 0355 CODEFLAG = 0.8,1,6%, ' transition is special code 

; 358 0 26 EXTRAFLAG = 0,9,1,0% ! extra type byte present 

; 359 035 LASTFLAG = 0,16,1,08, ' Last transition in state 

; 360 0358 EXTFLAG = be 13 OR ! type extension present 

: 1 0359 TRANF LAG = 1g) OR. ! transition karget present 

: 363 O36) ADDRELAG S Ears 41’ | 4 Gece paces precast 

: 36¢ ACTFLAG = 0.19.1. 08, i action routine present 

3 5 PARMF LAG = 0,16,1,0%; ! parameter longword present 

; 5 2 GLOBAL REGISTER 

; CHAR_COUNT = 6; ! character count in string token 

: EXTERNAL LITERAL 

3 LIBS_SYNTAXERR, ' syntax error status 

; oy LIBS" INVTYPE; ! invalid state table 

; 7 

: an 

: 75 2! Entry initialization consists of loading the starting state 
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74 
14-Sep-1 VMSLIB.SRC TPARSEb3 004 
7 rf ' into the state pointer. Then we proceed into the main 
15 
0 
4 
5 


' Loop that attempts to match transitions in the state table to 
; the current string contents. 


IF .STATE_LENGTH LSSU TPASK_COUNTO THEN RETURN SSS$_INSFARG; ! check minimum Length of state vector 


AMBIG_FLAG = 0; 
ACT_STATUS = 0; 
STATE = .START_STATE; 


WHILE 1 DO 
BEGIN 


! The following horrendous expression attempts to match the token type 

! of the current transition to the current string position. The outer 

! IF is a condition which, if true, causes the current transition 

! (just evaluated) to be skipped by the code at the end of this loop. The 
! inner IF causes the action routine of the transition to be called if 
true (if the transition matches). 


WWW 


Gausuaronononononunonununy— — — — 1 — + — 3 sOOOOCOCOOOO DOO we) 
ONS ue NFU BOSE UE RR ooh ee 


BEGIN 
IF 


BEGIN 

TYPE = GET_WORD (STATE); ' get basic type code 

IF .TYPECERTRAFLAG) ! and extra byte if present 
THEN TYPE<16,8> = GET_BYTE (STATE); 

LAST_SPACE = 0; 


ay -SPACE_FLAG AND .TYPECTYPECODE] NEQ TPAS_LAMBDA 
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BEGIN 
GETSTRING (STRING COUNT, SPACES); 
LAST_SPACE = .CHA NT; 
STRING_COUNT = .STRING COUNT = .CHAR_COUNT; ! update string pointer 
STRING_POINTER = .STRIRG_POINTER + .CHAR_COUNT; 
CHAR COUNT = 0; ! init matching string descriptor 
TOKER_POINTER = .STRING_POINTER; 
IF .TYPECTYPECODE) LSSU NULL_MATCH AND .STRING_COUNT EQL 0 
by 4 0 ! no match if at end 


| aa . TYPECTYPECODE) OF 


WE POR OPOPOPOPOPONNY 2 2 


FUN SSN RU OOMNOU RUN oO 


RRS 


! Single characters are matched by token types whose numerical value is 
the ASCII code of the character. 
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I cbere 
AR C STRING. POINTER) 


=~ eona-— 


CO TO HIGH_ASCIIJ: ! sin oF 
fet” TYPELT YPEBYTE) EQ 


BEGIN 
STATE CHAR = S CWSRCHARC. «STRING_POINTER) ; 
CHAR_COU 


E 
ELSE 06; 


Keywords are matched by token types whose e bits 0-6 contain the keyword 
number. A keyword token A be either (1) an exact match or 

@) abbreviated to some number of characters fixed for the get or 

(3) arbitrarily abbrev ayed “outs thas the first match wins) o 

(4) qeerevietes to one minimum w ote s locally unambiguous. Condition 

(4) is tested for ambi guity by findi ng the next entry in the keyword table 
and matching it against the token string. The keyword strings for each 
state are padded with a filler to prevent false matches across states. 


meme meme meme meme 


CKEYWORD TO HIGH_KEYWORDJ: ! keyword match 
IF -AMBIG_FLAG 
AND GETSTRING” (STRING_COUNT, SYMBOL) 


BEGIN 
LOCAL KEY; 
KEY = .KEYTAB + .KEYTABC.TYPECTYPEBYTEJ); 
IF cnseaL (. a COUNT, - TOKEN_ POINTER, 
. CHAR_ COUN T, .KEY, 0) 
THEN. 
BEGIN 
IF Fe ee (.KEY + .CHAR_COUNT) EQL TERMINATOR 
OR (.MCOUNT NEQ 0 AND [CHAR_COUNT GEQU .MCOUNT) 
THEN 1 
i 34 F .ABBRFM_FLAG 
ELSE IF .ABBREV_FLAG 
GIN 
KEY = 1 + owiking CH $6557) KE 


Y+,. 
IF CHSNEQ ( CHAR, COUNT, .TOKEN_POIN 
-COUNT, .KEY, 0) 


THEN 1 
ELSE 
BEGIN 
ANBIG_FLAG = 1; 
END 
END 
ELSE 0 
END 
ELSE 0 
END 
ELSE 0; 


! ALL other token types are special cases, representing commonly occurring 


were COUNT, TERMINATOR); 
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ye 000 1e=ge8=1882 99:98:08 == YeAstie saéirparse:o3e04 oe of) 
s §@ ' composites and oth seful artifacts. 
438 3 | omp es and other useful artifacts 
: 495 38 COTHERWISEJ: ! all other types 
: 138 Be pace -TYPECTYPEBYTE] FROM LOW _SPECIAL TO HIGH_SPECIAL OF 
: oe 39 
: $28 38 CSLARGDAI: ! empty string 
; $01 : 
3 4 5 CSEOS): ! end of input 
; é } STRING_COUNT EQL 0; 
; 5 5 § CSANY): ! any single character 
s Be 5 6 BEGIN 
3 0 505 6 STATE_CHAR = CHSRCHAR (.STRING_POINTER); 
; 508 288 CHAR_COUNT = 1 
: 316 508 a 
; 511 $309 CSALPHA]: ' alphabetic 
; 21§ B29 6 IF IS_ALPHABETIC (CHSRCHAR (.STRING POINTER) ) 
; 1 0511 6 THEN TSTATE_CHAR = CHSRCHAR (.STRING_POINTER); 
BB hae 
: 51 0514 . 
3 319 0515 C$DIGITI: ! single atats 
; 518 9218 6 IF IS_NUMERIC (CHSRCHAR (.STRING_POINTER)) 
; 519 0517 6 THEN TSTATE_CHAR = CHSRCHAR (.STRING_POINTER); 
; é 9 o318 3 a oc takCount = 1) 
; 3¢¢ $8 0 2 , 
= 0521 CS$STRING): ! alphanumeric string 
: 2 : 82 § : GETSTRING (STRING_COUNT, ALPHANUMERIC); 
; 526 63 & H CS$SYMBOL): ! symbol constituent set string 
; 5 i Be 5 2 GETSTRING (STRING_COUNT, SYMBOL); 
; 529 $3 7 5 CSBLANK): ' blanks or tabs 
; 2 ; 0399 5 GETSTRING (STRING_COUNT, SPACES); 
: 5 § 0530 2 CSDECIMAL): ! decimal number 
; 35 531 IF GETSTRING (STRING_COUNT, NUMERIC) 
~ % ¢ § aree "-yeaeds OTB (.CRAR_COUNT, -TOKEN_POINTER, STATE_NUMBER) 
; 4 < 
3 ; 0535 CSOCTAL): ! octal number 
3 : B2 § IF GETSTRING (STRING COUNT, NUMERIC) 
; 539 5 THEN L1BscvT_OTB (.CRAR_COUNT, .TOKEN_POINTER, STATE_NUMBER) 
eo OBS A 
: Seg 540 CSHEX): ! hexa-decimal number 
3; 54 bees IF GETSTRING (STRING COUNT, HEXNUMERIC) 
3 544 348 THEN LIBSCVT_HTB (.CRAR_COUNT, .TOKEN POINTER, STATE_NUMBER) 
3 *? 27 SE 0; 
: 8 545 CSFILESPEC, SUIC, SIDENT, SSUBEXPR]: ! complex expressions 
; 548 546 6 BEGIN 
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SAVECOUNT = .STRING COU 
SAVESSINTER = STRING. P 
STATUS = <SELECTONEU - 


T 
ESF iLesp PEC): 
PARSE _FILESPEC (.STATE_VECTOR); 


‘iy H save current position 
ELT YPEBYTED OF 


PAEAEXEMNMAANGNINIIN & & 


WO CONOULS WH O0On 


CINRANGE]: RETURN LIBS_INVTYPE; ! just for completeness 
COUTRANGE): RETURN LIBS_INVTYPE; 


i : 
5 3 F 
$ C$uIC): ; 8 
PARSE IDENT (.STATE_VECTOR, 0); ; 8 
§ CSIDENT : 8 
resus Ses! IDENT (.STATE_VECTOR, 1); 3 § 
§? LIBSTPARSE (. STATE VECTOR, ; ; 
6¢ SSTATE + 2 + .(.STATE)<0,16,1>, : 8 
6 KEYT AB); s § 
64 TES); s § 
65 5 IF .STATUS NEQ LIBS SYNTAXERR : 8 
66 564 THEN ACT_STATUS = .STAT ; : 
6 565 TOKEN POINTER” = . SAVEPOIN NfER; : 
a.) 0366 CHAR ENCOUN = .STRING_POINTER = .SAVEPOINTER; ; § 
69 826 IF .STATUS : 8 
70 368 THEN ; 8 
71 056 BEGIN ; 8 
ue 0570 STRING_COUNT = .STRING COUNT + .CHAR_COUNT; ; 8 
7 0571 STRING-POINTER = .SAVEPOINTER; ; 8 
7% O57¢ 1 : 8 
75 057 END : 8 
7% 0574 : 8 
77 0575 : 8 
78 0576 STRING_COUNT = .SAVECOUNT; ; 8 
79 577 STRING-POINTER = .SAVEPOINTER; : 8 
80 0578 0 ; 8 
81 057 END 
j 0580 END; 
8 0981 
84 05 
BS 098 
86 0 
87 : 
88 
89 9 
90 
0 


rw Teele ah al al al al ah Ab Ab db db db Ab Ab dd Ab Ab Ab db dh Ab sb ab ah sh sh ab al al al ah ab sal 


PB DVD DV PVDPVLPV PVP DPVLVPUPUSVDVSTSIIIIIVIVT NS SSN NINN NP OP PAA AO NNN NNN NNO OO 


585 
3 $ TES; ! end of special types case 
$88 TES ! end of select on .TYPE 
91 589 END ! end of inner condition (token match) 
3 239 
9 91 '¢ 
94 235 ! 
95 59 ! The type code in this transition matches the current string 
38 594 ! which is now described by the gee} string descriptor. Ca ( 
9 595 ' the user's action routine, if it exists, and if it returns true, 
98 238 : aepte the gtring and take the transition. Note that we set RO 
99 59 : 1 going into the call, making it easier for the routine to 
600 44: ! en success. 
608 5 ‘ 
le 
i 8 
604 § THEN 
605 60 BEGIN 
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TRING_COUNT = .STRING, COUN 
TRING-POINTER = .STRI 


< 
ia 


COUNT = .CHAR_COUNT; ! update string pointer 
AG_POINTER + "ehiak COUNT; "* 
OKEN_COUNT = .CHAR_COUNT; 


! ski 
IF TESTBITSC (TYPECEXTFLAG]) THEN STATE = ,STATE + 2; 


$ 
S 
T 


o 


extension if present 


: 6 s § 
5 3 
; 61 5 3 
; 611 6 3 
3 oi¢ 1 IF TESTBITSC (TYPECPARMFLAG)) ! set parameter longword if present ; g 
Ps ol = LON ° . 
61 1 THEN STATE_PARAM = GET_LONG (STATE) > 8 
: gis $18 IF : § 
3 O18 14 6 BEGIN s § 
; 61 15 IF TESTBITSC (TYPECACTFLAG)) 3 § 
: 618 o18 THEN 3: 93 
; 619 1 BEGIN 3: ¢§ 
; 620 18 7 BUILTIN RO, CALLG; 3 § 
; 6 1 $19 4 LOCAL STATUS; : : 
3 = 1; ; 
3; 6 ‘ 1 7 STATUS = CALLG (.STATE_VECTOR, REL_LONG (STATE)); ! call action routine 3; § 
; 624 ¢ 7 IF .STATUS NEQ 0 3; 68 
; 625 be 7 THEN ACT_STATUS = .STATUS; 3 § 
3; 6 $ 624 7 eS fATUS 3 § 
3; © be , Be END g § 
; 628 § 6 ELSE 1 $ §g 
3 ° 9 06 ° END : FH 
; 631 Oe $ 6 ! Either there was no action routine, or the action routine has returned 3 64 
3; 6 § 0 6! success; we take the transition. First we get the data address, if present. 3 § 
3 6 be 1 6! If present, store whatever data is called for: the mask, if supplied, or s § 
3 6 § 6 ! type dependent data if not - either the matching character, the number 3 § 
3 636 Os ? ° : value, or the string descriptor of the matching string. : HY 
: 637 5 6 : 8 
; 638 06 5 THEN 3; § 
3; 639 6 BEGIN : § 
; 640 6 6 IF .TYPECADDRFLAGJ 3 § 
; 641 9 § THEN ; 9 
3 O66 0 BEGIN 3; 9 
; 64 17 LOCAL ADDRESS; ie | 
3 644 eh 7 ADDRESS = REL Los (STATE); 3; 9 
3: 645 oe 7 IF .TYPECMASKFLAG 3; 3 
: 646 4 7 HEN s; § 
3; 667 0645 7 ADDRESS = ..ADDRESS OR GET_LONG (STATE) 3: ¥ 
; 648 D666 SE 3 3 
3; 649 BEGIN 3 q 
3 eat re IF NOT .TYPECCODEFLAG) ; : 
3 636 50 (. ADDRESS)<0,8> = .STATE_CHAR 3 $3 
3; 65 51 LSE » 
: 654 026 y BEGIN 3 
3 6355 53 9 CASE .TYPECTYPEBYTE] FROM LOW_SPECIAL TO HIGH_SPECIAL OF a 63 
i $3 a a 
; 658 28 9 CSANY, SALPHA sores"): s § 
; 659 2 3 (ADDRESS)<9,8> = .STATE_CHAR; 3 ; 
: 661 36 % CSDECIMAL, SOCTAL, SHEX, SUIC, SIDENT): 4 
> 662 09 -ADDRESS = .STATE_NUMBER; 4 
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663 


CINRANGE, OUTRANGE): 
665 N 


I 
(ADDRESS) = . TOKEN COUNT; 
ames = .TOKEN_POINTER; 


: 9 

3 9 TES; 

: 671 : END; 

3s 67 END; 

3 of? ° END; 

; 675 6 ! Take the yee If an explicit target exists, follow it. -1 means 

; O76 6 ! exit with success, -2 means exit with failure. If no explicit target exisis. 
3 ort ? skip transitions until we reach the beginning of the next state. 

: 679 6 

; 680 6 wals. fae = = 8 

: 681 6 ACT_S 

5 oes 6 IF et tRANFLAG 

; 68 6 THEN ' take the transition 

3 O80 ° eu ETORN. 1” .16,1> EQL TPAS EXIT ! TPAS "EXIT means exit 
; 686 6 ELSE IF .(.STATE)<0,16,1> EQL TPAS_FAIL ! TPAS_FAIL means exit 
3 ret 6 THEN RETURN L1B$_ SYNTAXERR 

; 689 $ ELSE STATE = REL_WORD (STATE) 

; 690 6 ELSE ! default to next state 

; 691 | UNTIL .TYPECLASTFLAG] DO 

; +69 0690 BEGIN 

; 6 7 TYPE = GET_WORD (STATE); 

: 694 0692 7 IF .TYPECERTRAFLAG) 

; 695 7 THEN TYPE<16,8> = GET BYTE biog phd 

; 696 0694 7 compone 

; 697 7 STATE = .STATE + 2 * * ten tHe PrABLe TYP POPTION _B1TSI); 
; 698 8098 6 END; 

; 699 6 0 

; 700 98 6 END 

3 Ay 99 6 

3 4 oe ? The action routine has rejected the transition. Make Like it never matched. 
ase an Pe g 

; 705 70 ELSE 

3; @ 7 6 BEGIN ! return characters to string 

3; 70 705 6 STRING_COUNT = .STRING COUNT + .CHAR_COUNT; 

; 708 7 6 STRING_POINTER = .STRING_POINTER - .CHAR_ COUN 

3; 709 7 6 ' skip the rést + the transition 
3; 710 re 6 1 

3; 711 7 END 

: oe 710 END 

; 71 711 

3 716 re 4 ELSE 

: 715 713 4 

3 at 714 4 END ! end of outer condition 

> a 715 4 

: at ay 4 !'+ 

; 71 71 4! 
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3 f 1 ay, 
2 ee 
s 725 7 : 
3; 7eé 724 
s Te? 725 
: 728 7 § 
; 729 7 

; 730 728 
, fs 729 
ae ; 730 
BD 0731 
ee 07 ; 
. eee 07 

; 736 0734 
3 44 0735 
; 38 0736 
; 739 0737 
; 740 0738 
3 741 0739 
: eg 0740 
: 74 0741 
3 7646 Ores 
s 765 074 
; 746 0744 
: 747 0745 
3; 748 0746 
: 749 0747 
3; 750 0748 
3; «751 0749 


12 


' If the transition eyes not match, we execute this code. It skips 

! the current transition to set up to try the next one in the state. 
! If this was the last transition in the state, a syntax error has 
occurred and TPARSE returns the value 9. 


i. 
THEN 


STATE + 2 * .LENGTH_TABLEC.TYPECOPTION_BITSJI; 
YPECLASTFLAG 


mm 
Zz. 
mxzroOmmm 


ST COUNT, SPACES); 

ST COUNT, SYMBOL); 

= K =fOUNT: 

OUNT EQL 0 AND .STRING_COUNT NEQ 0 
COUNT = .TOKEN_COUNT + 1; 


RI COUNT = .STRING_ COUNT + .LAST_SPACE; ! return flushed spaces 
RING POINTER = .STRING_POINTER - .CAST_SPACE; 
LAST SPACE = 0; 


STRING_ 
STRING 


! end of outside loop 
! end of routine TPARSE 
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000000006 00 e8 FB i CALLS as, cisscvt_ors : : } 
03 bb 1F7 35$: PUSHL 33 + 0541 3 1 
08 A? 9F 001F9 PUSHAB 8(R7) : 31 
0000v CF 9 re 1FC CALLS #2, GISTRIN : 3 1 
94 : 1 LBC —saRO, 238 : 3 1 
1c «6A? OOF PUSHAB 28(R7) : 0542 ; 1 
$8 DD 7 PUSHL (R11) F : 1 
DD PUSHL CHAR_COUNT : 31 
090000006 99 FB CALLS #3, Cigscvt_HTe : 71 
7 F9 i: BLBC Rs 47$ : : 1 
53 08 3 3¢ 00217 38$: | MOVZWL 8(R7), SAVECOUNT t 0548 
52 $9 Dd 0021B OVL  (R9), SAVEPOINTER + 0549 
EA BF 4 91 00 3 (MPB sr TYPE. #234 + 0552 
09 12 00 NEQ 39% : 
7 DD 00224 PUSHL R7 + 0553 
0000V CF 01 FB 00226 CALLS #1, PARSE_FILESPEC : 
7 11 00208 BRB 44$ : 
EB OF 54 91 00220 39% MPR =s: TYPE, #235 : 0554 
04 12 90231 BNEQ 40 : 
E D4 00 3 CLAL = (SP) + 0555 
98 11 00 BRB 41 : 
EC 8F 4 91 00237 40s CMPB = TYPE, #236 : 0556 
0B 12 00 BNEQ 42 : 
o4 DD 00230 PUSHL #1 + 0557 
7 DD O023F 418 PUSHL 7 : 
0000v CF 02 FB 00 41 CALLS #2, PARSE_IDENT : i R 
1¢ 11 00 46 BRB ; 
F8 oF 54 91 00 48 42$:  CMPB TYPE, #248 : 0558 
05 13 0024C BEQL 4 : 71 
50 01 CE 0024 MNEGL #1, STATUS : ; 
11 11 00 I BRB 44$ ; ; 
Oc AC pp 00 53 43$:  PUSHL KEYTAB : 0561 ; 
51 68 0256 CVTWL so rATeD Ri ; 0560 é 
02 A148 9F 00259 PUSHAB 2(R1)CSTATE) : : 
57 DD 00 20 PUSHL 7 : 0559 : 
FO9C CF : FB O0025F CALLS #3, LIBSTPARSE : ; 
000000006 8F D4 0 64 44$: CPL STATUS, #LIBS_SYNTAXERR > 0563 ; 
55 ; dd 00 $0 MOVL § STATUS, ACT_STATUS + 0564 : 
68 D 45$:  MOVL  SAVEPOINTERT (R11) > 0565 ; 
56 69 3 c 7 SUBL3 SAVEPOINTER, (R9), CHAR_COUNT : 0566 : 
9 E 7 BLBC TATUS, 46$ : 056 
08 A7 28 Ag 7A ADDW2 CHAR_COUNT, 8(R7) : 0570 
69 : 04 7 MOVL SAVEPOINTER, (R9) : 0571 
08 A7 3 B 46$:  MOVW SAVECOUNT, 8(R7) : 0576 
69 p MOVL § SAVEPOINTER, (R9) : 0577 
OODF A 47%:  ®BRW 64$ ; 
08 a7 6 A 48$:  SUBW2 CHAR_COUNT, 8(R7) > 0604 
69 . & 1 ADDL2 CHARTCOUNT. (R9) > 0605 
10 A? 6 D 94 MOVL § CHARTCOUNT. 16(R7) > 0606 
ms i ee Sao 
04 4 E OF 49%:  BBCC ‘6, TYPE, 50$ > 0610 
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20 A? 8 D MOVL TATE)+, 32(R7) : 
18 4 FE t 50$: BBCC sis Type, ef : 
é 4 00 05a ADDL2 #4, STATE - 
FC B84 7 FA i CALLG (RP) a-4 (STATE) (STATE) ; 2] 
D Bs TSTL TUS : 31 
1 BEQL : : 3 
55 D BA mOVE STATUS. ACT_STATUS : 31 
0 5 518: BLB STATUS, 52S” : 3; 7 
0090 31 002 BRwW 63$ : 31 
48 4 : E1 002c3 52$: BBC #14, TYPE, 58$ : 31 
31 g C1 ¢ ADDL3 (S$ Aner STATE, ADDRESS : 3) 
5 4 D €1 00eCcB a : : 1 
61 8 C8 $ CF BISL2 (STATED®, * (ADDRESS) : i | 
B 11 002D2 58$ : 
50 04 aC DO 9 D4 53$:  MOVL STATE fnbes "30s * RO : 
29 54 Q et D8 BBC #8 : 
E EA BF 4 8F 0020¢ CASEB TYbE. #244, : 
002A 0A OO1E O2E1 548: <WORD 55$-54$,- : 
OO1E CO1E 024 0024 0269 57$-54$.- : 
002A 002A OOTE 02°1 7$-54$.- : 
OO1E OO1E OO1E 02F9 » 56$-548.- F 
/ 6$-54$,- : 
56$-54$,- ; 
$-54$,- : 
5$-54$,- : 
5$-54$,- 3 
57$-54$.- ; 
7$-54$.- : : 
7$-545,- 3 F 
5$-54$.- : ; 
55$-54$.- : ; 
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61 10 Ad 7D 00 FF 55$ MOVQ 16(RO), (ADDRESS) ; : 
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06 AO O01 BA 9 13 BIiCB2 #1, 6TRO) ; ; 
55 04 0031 CLRL. ACT_STATUS F 
1B 54 0¢ £1 00319 BBC #12, TYPE, 618 ; 
FFFFE © BF 68 81 00310 CMPW 30s (STATE), @=1 : 
04 if 0 2 BNEQ 59% : 
50 1 p0 4 MOVL #1, R0 : 
FFFE 8F $8 81 0 8 59$:  CMPW (STATE), #2 ; 
.-% D BEQL  66$ : 
50 8 2 F CVTWL  (STATE)+, RO ; 
58 ¢ ADDL2 RO, STATE : 
FCE6 31 60$: BRW 2$ ; 
F9 54 A 50 61$: BBS #10, TYPE, 60$ : 
54 C C MOVZWL (STATE)+, TYPE : 
08 54 E1 F C #9, TYPE; 62$ ; 
D6 43 INCL STATE : 
54 8 10 FF OAR OF 4 INSV  =1(STATE), #16, #8, TYPE : 
1 4 06 OB EF 00348 62$ EXTZV #11, #6, fYPE, RI : 
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CHAR_COUNT, 8(RO) 

CHARS COUNT. 2(RO) 

#11,786, TYPE, R1 

' 

, TYPE, 8s 

E_VECTOR, R2 

GETSTRING 
R2) 

#2, GETSTRING 

CHAR SE OUNT. 16(R2) 

(R2) 


hae 
#3, #25, ACT_STATUS, #0 


ACT_STATUS, RO 
#LIBS_SYNTAXERR, RO 


STATE_VECTOR, RO 
LAST_SPACE, 8(RO) 
LAST-SPACE, 12(RO) 
LAST_SPA CE 


to 
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a 4a 
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3 f ? 4 9 ! ROUTINE GETSTRING (STRING, TYPE) : L_GETSTRING = 

: 755 7 g 1 44 

3 £ $ 7 1! 

: f f | } FUNCTIONAL DESCRIPTION: 

3 fy 7 $ a This routine extracts a string of the indicated type from 
; 760 7 1! the front of the string being parsed. 

; 761 Bf | 1! 

; 76 7 1! 

; 76 760 1 ! CALLING SEQUENCE: 

> 764 761 1! GETSTRING (ARG1, ARG2) 

; 765 166 1! 

: £08 765 1! 

; 76 764 1 ! INPUT PARAMETERS: 

; 768 765 1! ARG1 = address of string descriptor of source string 
; 769 9768 1! ARG2 = string type code 

; 770 143 1! 

3 wr 768 1°! IMPLICIT INPUTS: 

; we 0769 1! NONE 

3; 7 0770 1! 

3; 774 0771 1 ! OUTPUT PARAMETERS: 

; 775 140: 1! NONE 

3; 776 07735 1! 

; 777 0774 1°! IMPLICIT OUTPUTS: 

3; me 0775 1! NONE 

3; 779 0776 1! 

; 780 0777 1 ! ROUTINE VALUE: 

; «781 0778 1! 1 if string is not empty 

3 At 0779 1! 0 if string is null 

; 7 0780 1! 

; 784 0781 1 ! SIDE EFFECTS: 

3s es 14 1 7 NONE 

; 786 0783 1! 

3; «787 Bree 1 !<- 

; 788 785 (1 

: 789 3738 1 

; 790 078 BEGIN 

3; my 0788 

; 79 O78? 

: 79 0790 STRING: REF VECTOR; 

: 794 0791 

; 795 1434 EXTERNAL REGISTER 

: a O72 CHAR_COUNT = 6; ! character count of found string 
; 79 794 

; 798 14 + 

; 799 P36 : 

: 800 79 ! To extract the string we sinoly scan through the input string 
; 801 as ! until we hit a character that is not in the class. 
: 4 7 } We count the characters in the global string count. 
3 be Of le 

; 06 808 CHAR_COUNT = 0; 

: 808 805 @ WHILE .(STRINGCOJ)<0,16> GTRU .CHAR_COUNT 

; 809 08 AND ( 


<r 


: 810 7 & ( IF .TYPE EQL §$ PACES 

; i 3 ; THEN Js_SPACE (CHSRCHAR (.STRINGC1] + .CHAR_COUNT)) 

: 81 10 4 OR (IF .TYPE GEQU NUMERIC 

; 14 ; THEN }S_NUMERIC (CHSRCHAR (.STRINGC1] + .CHAR_COUNT)) 

; 816 i 4 OR (IF .TYPE GEQU HEXNUMERIC 

4 gi 14 ; THEN 1S _HEX (CHSRCHAR (.STRINGC1] + .CHAR_COUNT)) 

; B19 1 4 OR (IF .TYPE GEQU ALPHANUMERIC 

3 § 9 ; THEN SAL LPHABETIC (CHSRCHAR (.STRINGL1] + .CHAR_COUNT)) 
; H ‘ 8 ig 4 OR (IF .TYPE EQL SYMBOL 

: 8 08 0 5 THEN Is. SYMBOL (CHSRCHAR (.STRINGC1] + .CHAR_COUNT)) 

8 4 08 1 4 ELSE 0)7 

3 826 08 § : DO (CHAR_COUNT = .CHAR_COUNT + 1); 

3 828 0825 2 RETURN .CHAR_COUNT GTRU 0; 

3 4 0826 a 

3; & 0827 1 END; ! end of routine GETSTRING 


0004 00000 SEreTAINS 


ORD Save R 
56 D4 00002 CLRL  CHAR_COUNT 
AC D0 00004 MOVL = STRING 
00 ED 0008 i$ CMP2V #0, #16, (R1), CHAR_COUNT 
03 1A 0000D BGTRU 2$ 
CO 31 OO00F BRW 17$ 
AC 09 0012 2$ MOVL TYPE, R2 
OF 12 0001 BNE 
46 9A 0001 MOV ZBL 44 (RI) CCHAR_ COUNT], RO 
30 91 0001D CMPB RO, #9 
¢ 13 000 BEQL sé; 
5 91 000 CMPB Ss «RO, «#32 
7 13 000 BEQL us 
32 03 0027 3$: TSTL 
ss 90 9 BEQL Re 
46 9A 000 MOVZBL a4 (RI) {CHAR COUNT, RO 
Q 91 6 CMPB RO, #4 
1F BLSSU 4 
0 91 000 CMPB ss RO, -#57 
C 18 BLEQU =14$ 
3 D1 OO003A 4$: CMPL = R2, #2 
? 1F 0003D BLSSU 
9A 0003F MOVZBL a4(R1) CHAR COUNT, RO 
50 91 4 CMPB , a 
1F 7 BLSSU 
0 91 9 CMPB ss RO, -#57 
F 18 C BLEQU 1 
50 9 5$: CMPB sO, «#65 
06 1F BLSSU-6$ 
91 00 CMPB 
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ROUTINE PARSE _FILESPEC (TPARSE_BLOCK) = 


FUNCTIONAL DESCRIPTION: 


This routine parses a file specifier string, using the SFILESCAN 
service. 


CALLING SEQUENCE: 
PARSE _FILESPEC (TPARSE_BLOCK) 


INPUT PARAMETERS: 
TPARSE BLOCK: address of TPARSE control block 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
status of parse operation 


SIDE EFFECTS: 
string descriptors in TPARSE block modified if successful 


' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
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. 
' 
. 
' 
. 
' 
. 
! 
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. 
' 
. 
' 
. 
' 
. 
' 
. 
! 
. 
J 
. 
' 
. 
' 
. 
! 
. 
' 
: 


BEGIN 


TPARSE_BLOCK : REF S$BBLOCK; ! TPARSE control block arg 

LOCAL 

FSCAN_LIST : $BBLOCK (12); ! descriptor list for SFILESCAN 

: Set up the filescan List arguments and call it. 

FSCAN_LISTCATRSW_TYPE] = FSCNS_FILESPEC; 

FSCAN_LIST+8 = 0; 

IF SFILESCAN (SRCSTR = TPARSE BLOCKCTPASL_STRINGCNT), 
VALUELST = FSCAR_LIST) 

THEN RETURN 0; 


: If successful, update the string pointers in the user's block. 


TPARSE_BLOCKCTPASL_STRINGCNT] = .TPARSE PLOEKE TeASL STRINGCNTJ 
- .FSCAN CISTCATRSW SIZE); 

TPARSE_BLOCKCTPASL_STRINGPTR] = .TPARSE Pe OEE TEASE STRINGPTRJ 
+ .FSCAN_CISTCATRSW_STZE); 
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PH OBB the, 


.EXTRN 
0004 00000 PARSE_FILESPEC: 
SE € ¢2 0000 Pr tis 
02. AE 1 6 0008 MOVW 
08 AE D4 CLRL 
7E D4 0000C CLRL 
04 AE OF O00E PUSHAB 
52 046 AC 00 001 VL 
08 A2 9F 00015 PUSHAB 
000000006 00 Q FB 00018 CALLS 
0 0 E8 OOOTF BLBS 
50 D4 00022 CLRL 
04 0024 RET 
50 6 ' 0025 1$: MOVZWL 
08 ag 5 : 0028 SUBL2 
5 6 € 0002C MOVZWL 
oc A2 CO 0002F ADDL2 
50 01 DO 00033 MOVL 
04 000 RET 


; Routine Size: 55 bytes, Routine Base: _LIBSCODE + 04(B 


a 13:98:08 


! End of routine PARSE_FILESPEC 


AX-11 OL ise 3e v4.0 
VMSLIB.SRCIJTPARSE. g334 


SYSSFILESCAN 


Save R2 


#i2, SP 
#1, FSCAN_LIST#+2 
FSEAN LISTS 


FSCAN_LIST 
TPARSE_BLOCK, R2 
#3, $YSSFILESCAN 


re 


0860 
0904 


0905 
0907 


0908 
0914 
0916 
0919 


LIBSTPARSE 16-50 p-1984 AX-11 Bliss-32 V4.0-742 Pp 8 oy 
iOee000 ety a | te tg eae ee age 6 


H 3 $ 84 9 ! ROUTINE PARSE_IDENT (TPARSE_BLOCK, GENERAL) = 

; 928 03 § 1 lee 

> 929 9 1 i 

; 4 , 4 ¢ ! FUNCTIONAL DESCRIPTION: 

; 9 § 8 § 1} This routine parses an identifier string, leaving the binary value 

3 $34 84 i : in the TPASL_NUMBER field of the tparse block. 

s 955 0929 1 | CALLING SEQUENCE: 

: 239 84 , : PARSE_IDENT (TPARSE_BLOCK, GENERAL) 

: 938 0984 1 | INPUT Snare Eres 

; 939 bas 1 i ARSE_BLOCK: address of Sp control block 

: 940 0934 1! GENERA AC: 0 to parse UIC o 

; 941 0935 1} 1 to parse general” identifier 

; 94 0936 1! 

3; (94 0937 1: aAPLICTY INPUTS: 

> 944 0938 1} ONE 

: 945 0939 1! 

; 946 0940 1 |! OUTPUT PARAMETERS: 

: 947 0941 1! NONE 

; 948 0942 1! 

; 949 094 1 ' IMPLICIT OUTPUTS: 

; 950 0944 1! NONE 

s 951 0945 1! 

: 952 0946 1 ! ROUTINE VALUE: ’ 

; 953 0947 1! status of parse operation 

: 954 0948 1} 

; 955 0949 1! SIDE EFFECTS: tae 

; 956 0950 1: string descriptors in TPARSE block modified if successful 

; 957 0951 1! 

; 958 8336 1 i- 

3; 959 0953 (1 

; 960 0954 2 BEGIN 

; 961 0955 5 

; 962 0956 M 

: 963 0957 2 TPARSE_BLOCK : REF SBBLOCK; ! TPARSE control block arg 

> 964 0958 2 

: 965 0959 § LOCAL 

: 966 0960 STATUS, status value 

: 967 0961 § LOCAL_BLOCK : SBBLOCK CTPASK: rt AC THOSLOCAL STORAGE); 

3 aoe ba T [Local TPARSE- control block 

5 396 964 ' Set up the local TPARSE control block by copying the user's. 

. 97} 0965 ! Then do the parse. 

oh BS 

3; 974 096 CHSMOVE (TPASK_LENGTHO, .TPARSE BLOCK, LOCAL_BLOCK); 

; 975 9 LOCAL_BLOCKCTPASL_COUNT] = TPASR_COUNTO; 

s 97 970 LOCAL gBLOCk TPASY~ BLANKS] = 1; 

: 97 971 § STAT | 

; 978 97 IF GEN ERA 

3; 979 97 THEN IBS 1 PARSE (LOCAL_BLOCK, LIBSSIDENT_STATE_TABLE, LIBSSIDENT_KEY TABLE) | 

; aay 94 FLSe L LIBSTPARSE (LOCAL-BLOCK, LIBSSUIC_STATE_TABLE, LIBS$UIC_KEY_TABCE) 

; 2 $978 
| 
| 


LIBSTPARSE 
vou2000 


: 983 0977 
> 984 44 
> 985 97 
: 986 980 IF_ .STATUS 
; 987 981 THEN 
: 988 9 ¢ BEGIN 
; 989 9 TPARSE BLOCK 
; 990 984 TPARSE BLOCK 
; FF Boe? TPARSE BLOCK 
; 938 986 END; 
; 0987 
; 994 poe . STATUS 
> 995 989 END; 
5E 
56 
6E 66 
6E 
046 AE 
OA 
FAEC CF 
OA 
08 A6 
1C =—A6 


3; Routine Size: 64 bytes, Routine Base: 


TPASL_STRI 
TPASL -NUMB 


r$-Bep-1964 02:20:18 YAK-HT BL ietc52.v4.0274 


If successful, update the string pointers in the user's block. 


NGCN Ny = .LOCAL -BLOCKETPASL STRINGCNT); 
LISTRINGPTR] = LOCAL BL OEE TPASL STRINGPTRI: 
ER] = .LOCAL_BLOCKLTPASL_NUMBERJ; 


! End of routine PARSE_IDENT 


007C 00000 PARSE_IDENT: 
WORD Saye fe R2,R3,R4,R5,R6 


2c C2 0000 SUBL2 
04 AC DO 0000 OVL TPARSE. BLOCK, R6 
24 28 00009 MOVC3 #36, che) « LOCAL_BLOCK 
08 DO 0000D MOVL. #8, LOCAL. BLOCK 
01 88 00010 BISB2 #i, LOCAL “BLOCK+4 
08 AC €E9 00014 BLBC GENERA 
0000v CF SF 00018 PUSHAB CIBSS1DENT _KEY_TABLE 
0000v CF 9F 0001C PUSHAB LIBSSIDENT-STATE_TABLE 
08 11 00020 BRB 2$ 
0000V CF 9F 00022 1$: PUSHAB LIBSSUIC_KEY_TABLE 
0000v CF 9F 00026 PUSHAB LIB$SUIC-STATE_TABLE 
08 AE 9F O002A 28: PUSHAB LOCAL B 
03 FB 900¢0 CALLS #3, LIBSTPARSE 
50 9 00032 BLBC TATUS, 3$ 
08 AE 7D 00035 MOVO LOCAL_BLOCK+8, 8(R6) 
1C AE DO OOO3A MOVL LOCAL “Bt OcKs36, 28(R6) 
04 0003F 3$ RET 


-LIBSCODE + 0502 
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Sees 98:90:58 


AX-11 B 
VMSLIB. 


on 
xz-—. 
ow 
um 
—_t 
UW 
mr 
wD 


: $98 $90) 1 i acti tines t UIC's and identifi 
; ' Action routines to parse "s an entifiers. 
; .999 038 1! 
; 1000 9935 1 
MEL BBB TE nenenber opening bac 
; ! Remember opening bracket. 
: 100 996 1 | lis es 
: 1004 0997 1 ROUTINE SET_BRACKET = 
; 1005 0998 N 
; 1006 0999 TPARSE_ARGS; 
: 1007 1000 
; 1008 1001 2 TPARSE_BLOCKCTEMP_CHAR] = .TPARSE_BLOCKCTPASB_CHAR); 
3; 1009 Iso 1 
; 1010 1005 1 END; 
0000 00000 SET_BRACKET: 
«WORD Save no ing 
28 «AC 18 AC 90 00002 MOVB 24(T PARSE BLOCK), 40(TPARSE_BLOCK) 
50 01 00 00007 MOVL #1, RO 
04 OOO00A RET 
; Routine Size: 11 bytes, Routine Base: _LIBSCODE + 0542 
: 1011 1004 1 
; ste 1005 1! 
3; 101 1006 1 ! Check closing bracket against opening bracket. 
: 1014 1007 1! 
3; 1015 1008 1 ROUTINE CHECK_BRACKET = 
3: 1016 1009 B 
3 1017 1010 2 TPARSE_ARGS; 
3; 1018 1011 
3: 1019 1Olg SASSUME (‘<'=">', EQL, cal if he 
; ise IStz . TPARSE _BLOCKCTPASB_ CHAR) EQL  FPARSE -BLOCKCTEMP_CHAR] + ('J'-'C") 
3 1022 1015 1 END; 
0000 00000 CHECK_BRACKET: 
-WORD Save motets 
51 28 AC 9A 00002 MOVZBL 4O(TPARSE_BLOCK), R1 
51 9¢ CO 00006 ADDL2 #2, RI 
D4 00009 CLRL R 
51 18 AC 08 0 €ED 000 CMPZV «#0, #8, 24(TPARSE_BLOCK), R1 
§ 12 00011 BNEQ 1$ 
06 Baie INCL RO 
04 00015 1$: RET 
; Routine Size: 22 bytes, Routine Base: _LIBSCODE + 054D 


1015 


a 


= 
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14- = ep- VMSLIB’S 


; 1023 1 1§ 1 

3; 1024 101 1! 

3; 1025 i 18 1 ! Check and save group number. 

3; 10 § 101 ii 

3; 10 1020 1 ROUTINE STORE_GROUP = 

; 1028 1021 8 

; 18 , 19 ¢ TPARSE ARGS; 

; 1031 1024 (TPARSE “ft OE KETBAS NUMBER))<16,16> = ,TPARSE_BLOCKCTPASL_NUMBER); 
; 10 é 1025 2 .TPARSE-BLOCKLTPASC_NUMBER] LSSU 16383 
3 1°: 10 $ 

3: 1034 10 END; 


0000 00000 STORE_GROUP: 
WORD 


Save no 
26 = =AC ic AC BO 0000 MOVW 28( TPARSE e Brock), 38(TPARSE_BLOCK) 
50 D4 0000 CLRL RO 
OOOO3SFFF 8F 1¢ AC 01 00009 CMPL 28(TPARSE_BLOCK), #16383 
02 1€ 00011 BGEQU 1$ 
50 D6 00013 INCL RO 
04 00015 1$ RET 


Routine Size: 22 bytes, Routine Base: _LIBSCODE + 0563 


1035 1028 1 

1036 1968 1! 

1037 1030 1 ! Store wild card group number. 
1038 1031 1! 

1039 1936 1 ROUTINE WILD GROUP = 

1040 103 § BEGIN 

1041 1034 TPARSE_ARGS; 

1068 1035 2 

104 1036 2 (TPARSE_BLOCKCTEMP_NUMBER])<16,16> = 16383; 
1044 1037 § 

1045 1038 1 

1046 1039 1 END; 


0000 00000 WILD_GROUP: 
- WORD 


Save nothin 
26 «=AC 3FFF 8F B60 0000 MOVW e383. 38( TPARSE_BLOCK) 
50 01 »? si MOVL #1, RO 


Routine Size: 12 bytes, Routine Base: _LIBSCODE + 0579 


3 1047 1040 1 


2 


PPA AVIVIIIUII 


SOVWONOUSWN—O 
kt kt tt 
WN OODONOULS wr 


tk ts tt 
SESS SSSS SSE 


; Routine Size: 


Check and save member number. 
TINE STORE_MEMBER = 
RSE_ARGS; 


» TPARSE  hamcabeeebainees GEQU 65535 
N_RETURN 0: 


Soc 
— 
z 


ma ate 40 eee we 
—+—rwy Un 


© 
PARSE _BLOCKLTPASL_NUMBER])<16,16> = .(TPARSE_BLOCKCTEMP_NUMBERJ)<16, 16>; 


0000 00000 STORE_MEMBER: 
. WORD 


QOOOFFFF 8F 1¢ AG D1 00002 
03 iF Bp oee 
50 04 0000C 
04 QO00E 
1€ AC 26 «AC BO OOOOF 1$: 
50 01 00 00014 
04 00017 


24 bytes, Routine Base: _LIBSCODE + 0585 


SEFETE 


SeSF 


ed ee ee aed wd = ts) 2 
WN —O0an 
de ot ee od tt 


AAAS 
—ororononononn a 


nN 
AUiFwWn—OVOanous 


oooo 


! 

Store wild card member number. 
ROUTINE WILD_MEMBER = 

TPARSE_ARGS; 
( 
( 
1 
E 


TPARSE_BLOCKCTPASL_NUMBER])<16,16> = ,(T 
TPARSE BLOCKLTPASL_NUMBER])<0,16> = 6553 


ND; 


othin 
RSE. BLOCK), #65535 


a * ns cect 30( TPARSE_BLOCK) 


Sete Se Se Ge Ge Se Be 


CARSE BLOCKE TEMP _MUMBERJ)<16. 16>; 


0000 00000 WILD_MEMBER: 
WOR 


a" 8 


OE 


15 bytes, Routine Base: _LIBSCODE + 059D 


Routine Size: 


30( TPARSE_BLOCK) 
ck) 
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OOOOOCCCoCoO 


Poecec 


Sb bs 4 ed st 8 
NNN 
AVI OGONOUE 


oo 
co 
“ 


; Routine Size: 


S3eseseseees 


Routine Size: 


; 1098 


ee eee ee ee ee ey 
fofelolololololololololo) 
SN NNO OO 


CONAOUSWIOOOn) 


v0 
a ed ad nd 


SoOooooooooooo 
30.00 0000 Co CO CD CD CD CD CO“ 
SOWOONAOUMUESWN OO 
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Store full wild card identifier. 

ROUT INE ALL_WILD = 

TPARSE ARGS; 

TPARSE_BLOCKCTPASL_NUMBER] = UICSK_MATCH_ALL; 


0000 00000 ALL_WILD: 
WORD Save nothin 


1c AC 01 CE 00002 MNEGL #1, 28(TPARSE_BLOCK) 
50 01 00 00006 MOVL #1, RO 
04 00009 RET 


10 bytes, Routine Base: _LIBSCODE + OSAC 


' Convert single identifier name to numeric value. 
ROUTINE SINGLE_NAME = 
TPARSE_ARGS; 


SASCTOID (NAME = TPARSE BLOCKCTPASL TOKENCNT), 
ID = TPARSE -BCOCKCTPASL_NOMBER]) 


END; 
-EXTRN SYS$ASCTOID 
0000 00000 SINGLE_NAME: 
-WORD Save nothing 
7E D4 00002 CLRL = (SP) 
1¢ AC 9F 00004 PUSHAB they BLOCK) 
10 AC 99F tf PUSHAB JO CTP ARSE BLOCK) 
000000006 00 0S FB A CALLS . SYSSASCTOID 
04 00011 RET 


18 bytes, Routine Base: _LIBSCODE + 0586 
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: 1099 1 33 1! 

: Viet ! i, : ; Convert and save group name. 

: 1108 99 1 ROUTINE GROUP_NAME = 

: 1104 1 39 TPARSE_ARGS; 

> 1105 1098 

> 1106 109 LOCAL 

st me — 

: 1109 P 110¢ STATUS = SASCTOID (NAME = TPARSE BLOCK TPASL TOKENCNTI, 
> 1110 110 ID = TPARSE BCOCKCTEMP_NUMBER)); 
1111 1104 2 IF _NOT .STATUS THEN RETURN .STATUS; 

; 1118 1105 - (TPARSE_BLOCKETEMP_NUMBERI)<16, 163 LEQu 16385 AND 
; 1113 1106 : . (TPARSEBLOCKCTEMPNUMBER])<00.16> EQLU 65535 

: 1115 1108 1 END; 


0004 00000 GROUP_NAME: 
. WORD 


Save R2 
7E 04 00002 CLAL =(SP) 
24 AC 99F 00004 PUSHAB 36(TPARSE_BLOCK) 
10 AC 9F 00007 PUSHAB 16(TPARSE BLOCK) 
000000006 00 03 FB OOO0A CALLS #3, SYSS$ASCTOID 
1E 50 €9 00011 BLBC STATUS, 3$ 
51 D4 00014 CLRL R1 
FFF 8F 26 AC 61 00016 CMPW 38(TPARSE_BLOCK), #16383 
O¢ 1A QOOIC BGTRU 1$ 
1 D6 OOO1E INCL R1 
50 D4 00020 1$ CLRL RO 
FFFF 8F 24 AC B61 000 ‘ CMPW 36(TPARSE_BLOCK), #65535 
02 12 000 BNEQ 2s 
50 dg 0002A INCL RO 
52 51 D2 0002C 2$: MCOM R1, R2 
50 52 CA 0002F BICL R2, RO 
04 00032 3$: RET 


Routine Size: 51 bytes, Routine Base: _LIBSCODE + 05C8 


: 1316 1109 1 

: 111 1110 1! 

; 1118 1111 1 ! Convert and check member name. 

3 1119 1116 1! 

: 1120 111 1 ROUTINE MEMBER_NAME = 

3 1121 1114 BEGIN 

s 11 ; 1115 TPARSE_ARGS; 

3 11 a 

: 1124 111 LOCAL 

3 i 5 1113 STATUS; 

: 11 $ P 1189 STATUS = SASCTOID (NAME = TPARSE ete tte TOKENCNT), 
3 1128 1121 ID = TPARSE_BCOCKCTPASL_NOMBER)); 
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1108 
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; Routine Size: 


ta 


ee 
Our 


32 bytes, 


000000006 00 
08 


1E AC 


Routine Base: 


IF NOT .STATUS THEN RETURN .STATUS; 
. (TPARSE_BLOCKC TEMP NUMBERD}<16 16> EQL 
; (TPARSE ~BLOCKLTPASC_NUMBERJ)<16, 


END; 


16> 


ck 


Sep-1 
Sep-1 


Be 19:89:08 


0000 00000 MEMBER.NAME: 


OR 
7E 04 00002 CLRL 
1¢ AC 9F 00004 PUSHAB 
10 Ag 9F 00007 PUSHAB 
03 FB OO00A CALLS 
50 €9 00011 BLBC 
50 04 00014 CLRL 
26 «AC Bi 00016 CMPW 
02 12 00018 BNEQ 
50 06 00010 INCL 
04 OOO1F 18: RET 
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5 
8 


On ss SS Ss ss 


R 
,QILD_ GROUP) 
“OCTAC,,STORE GROUP), 
SYMBOL. ,GROUP_NAME) 


~ ~~ See te he — 
. 


('e" TPAS_EXIT,WILD_MEMBER 


), 
(TPAS_OCTAL, TPAS_EXIT, STORE MEMBER), 
(TPAS-SYMBOL , TPAS_EXIf,MEMBER_NAME) 


19:33:08 


_LIBSPARSE_STATE ,NOWRT, 


00000 LIBSSUIC_STATE TABLE: : 


8058 00000 ; TPASTYPE 


AX-11 Bliss-32 V4.0- 
VMSLIB.SRCJTPARSE .B3 


U.2 -32677 
00000000* 00002 ;TPA 
U.3: <<SET_BRACKET-U.3>=-4> 
803C C0006 ;TPASTYPE 
U.4: -32708 
00000000* 00008 ; TP 
U.5: <<SET_BRACKET=-U.5>-4> 
1425 0000C ;TP 
U.6: 5157 
0000* OO00E ;TP 
U.8: <<U.7-U.8>-2> 
802A 00010 ;TP 
U 4] -32726 
10: <<WILD_GROUP=-U.10>-4> 
PASTYPE 
11: WORD -31244 
PASACTION 
12: _.LONG <<STORE_GROUP-U.12>-4> 
PASTYPE 
13: WORD 1068 
PASTYPE 
14: _,WORD -32726 
PASACTION 


LPT ARSE 
v04-000 


85F4 
00000000* 
9050 
00000000* 
FFFF 
943E 
00000000* 
FFFF 


0458 
15F5 
FFFF 


902A 
00000000* 
FFFF 
91F 1 
00000000* 
FFFF 
8058 
00000000* 
803C 
00000000* 
1425 
0000* 
09F8 
0000+ 
802A 
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16- -Sep- =1382 ¢: 2: 08 VMSLIB. SRCITPARSE B32: 
U.15: _.LONG <<WILD_MEMBER-U.15>-4> 
00024 ; TPASTYPE 
U.16: WORD -31244 
00026 ; TPASACTION 
U.17: -LONG <<STORE_MEMBER-U.17>-4> 
0002A ; TPASTYPE 
U.18: .WORD <-28579 
_— NA reel e <<CHECK_BRACKET=-U.19>-4 
‘, a “U.19>-4> 
00030 ; TPASTARGET 
U.20: ~ WORD -1 
00032 ; TPASTYPE 
U.21: .WORD -27586 
— NAS pppaahl <<CHECK_BRACKET-U.22>-4 
e H e al “Ue >= > 
00038 ; TPASTARGET 
U.23: WORD -1 
OO03A jHEX. FORMAT 
U -BLKB 0 
0003A ; TPASTYPE 
U.24: ~ WORD 1112 
0003C ; TPASTYPE 
U.25: - WORD 5621 
0003E ; TPASTARGET 
U.26: WORD -1 
00040 LIBSSIDENT a aii 
00040 ; TPASTYPE 
U.28: .WORD -28630 


00042 ; s TPASACTION 
00046 ; TRASTARGET 
00048 ; TPA ASTYPE 

ORD 


1: 
0004A ; TRASACTION 
QO04E ; TPASTARGET 
U.33:___ WORD 
00050 S TPASTYPE 
U.34: .WORD 
00052 ;TPASACTION 
0.35: LONG 
00056 T TPASTYPE 
0.36: —.WORD 
00058 siBAsActiON 


0005¢ sipAST PE 


“Ss: —-* c--: c-- 
w wD w 
7) 


0005€ S TPASTARGET 
0.39: .WORD 
00060 T TPASTYPE 
U.40: — .WORD 
00062 ; TPASSUBEXP 
U.42:_ _ , WORD 
00064 ;TPASTYPE 
U.43: WORD 


<<ALL_WILD-U.29>-4> 

-1 

-28175 
<<SINGLE_NAME-U.32>-4> 
-1 

-32677 
<<SET_BRACKET-U.35>-4> 
-32708 
<<SET_BRACKET-U. 37>-4> 
5157 

<<U.7U.59>-2> 

2552 

<<U.41°U.42>-2> 

-32726 


Qanae —J 
i ee n” 


L 
L 
L 
L 
L 
L 
$s 
$s 
Ss 


"13 els i 
voe=000" 1e-$ep-1986 19:95:08 — WmsuiecsnesTPanse 032; Peek 


00000000* 00066 ;TPASACTION 
U.44: LONG <<ALL_WILD-U.44>=4> 
85F1 O006A ; TPASTYPE 
U.45: «WORD -31247 
a jicgeation. <<S INGLE _NAME=“U.46>-4 
° * = -U. >-4> 
905D 00070 ; TPASTYPE 
U.47: _,WORD -28579 
00000000* 00072 ; TPASACTION 
0.48: LONG <<CHECK_BRACKET-U.48>-4> 
FFFF 00076 ; TPASTARGET 
U.49: -WORD -1 
943E 00078 ; TPASTYPE 
G.50: .WORD -27586 
00000000* 0007A vTPASACTION 
0.51: LON <<CHECK_BRACKET-U.51>-4> 
FFFF QOO7E vTPASTARGET 
U.52: eWORD =1 
00080 YéROUP _MEMBER 
U.41: -BLKB 0 
802A 00080 vTPASTYPE 
U. 53: _.WORD -32726 
00000000* 00082 ; TPASACTION 
U.54: LONG  <<WILD_GROUP-U.54>=4> 
81F4 00086 ; TPASTYPE 
U.55: WORD -32268 
00000000* 00088 ;TPASACTION 
U.56: -LONG <<STORE_GROUP-U.56>-4> 
85F1 O008C ; TPASTYPE 
U.57: «WORD -31247 
00000000* OO08E ; TPASACTION 
.58: LONG  <<GROUP_NAME-U.58>-4> 
042C 00092 ; TPASTYPE 
U.59: -WORD 1068 
902A 00094 ; TPASTYPE 
U.60: _.WORD -28630 
00000000* 00096 ; TPASACTION 
.61: LONG  <<WILD_MEMBER-U.61>-4> 
FFFF QOO9A ; TPASTARGET 
U.62: ° ORD -1 
91F4 OO009C ; TPASTYPE 
U.63: _.WORD -28172 
00000000* O009E ; TPASACTION 
U.64: -LONG <<STORE_MEMBER-U.64>-4> | 
FFFF OQOOA2 ; TPASTARGET 
a U.65: ° 0 -1 } 
9554 OOOA4 ; TPASTYPE 
U.66: -27151 
00000000* Q00A6 ; TPASACTION 
67: . <<MEMBER_NAME-U.67>=4> 
FFFF QOOAA ; TPASTARGET 
0.68: . 1 
.PSECT _LIBSPARSE_KEYO,NOWRT, 


00000 LIBSSUIC_KEY VA Es 
~BLKB 


N13 
LIBSTPARSE 16-Sep-19 20:1 AX-11 Bliss-32 V4.0-742 P 40 = 
yon e000 beatae 1 96:99:08 VMSLIB.SRCJTPARSE .832;1 ong (9) 
00000 jTPRASKEYO, P 
00000 LiBssiDeNT KEY TABLE: 


00000 ; TPASKEYO 
U.27: -BLKB 


; PSECT SUMMARY 

: Name Bytes Attributes 

;  LIBSCODE 1563 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

> <LIBSPARSE_KEYO NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 

3 ZLIBSPARSE-STATE 172 NOVEC.NOWRT, RD. EXE, SHR, LCL, REL. CON, PIC.ALIGN(1) 

; Library Statistics 

3 sosecnes Syahelg soneosee Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 977 581 0:01.0 

; mitt ESystie ip ANAC .C8254 i$ 8 * 14 $0:00:4 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$: TPARSE/OBJ=O0BJ$: TPARSE MSRC$: TPARSE/UPDATE=(ENHS: TPARSE ) 
Size: 155) code, 204 data bytes 


3 Run 741, 
$ Elapsed T Time 138 4 
3 Lines/CPU Min: 17 


ry Used: 341 pages 
; — ation. Complete 


2 -BTI3A-SE . EQUIPMENT CORPORATION 
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